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1 001 MODULE SHOWSACL ( 
§ ; § ere (OL 138 3¢) « 
é 9 4 ADDRESSING _MODE OC EXTERNAL = GENERAL) 
8 007 4 BEGIN 
3 sis } lee eee KeReeeHERAAAHHEAeeAeeeeeeeeeeeeteeKeeeeeeeeeteeeeeeeeeeeeeeeeeeere 
'@ © 
10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
\§ borg ! 7 ALL RIGHTS RESERVED. - 
14 0014 1 !# alg SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corite ® 
15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS SU LICENSE AND WITH THE * 
16 8018 1 !@ INCLUSION OF THE VE COPYRIGHT NOTICE. THIS S$ ARE OR ANY OTH * 
17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
18 dt 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i sh : :* TRANSFERRED. ' 
:® - 
$3 8054 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
2 O0s¢ 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ? ' be CORPORATION. . 
'® 
5 $058 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ ®* 
6 pos 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
e? 0027 1! *« 
28 0028 1 !* * 
9 00 9 1 eee RARER AREER AREA ERATE RARE ERRATA AAReAEReAAAeAe Ree eee 
0 0030 1 
1 0031 1 !+4¢ 
4 0032 1! 
0035 1! FACILITY: SHOW utility 
4 0034 1! 
5 0035 1 ! ABSTRACT: 
6 0036 1! 
7 0037 1! This module contains all the routines necessary to support the 
38 0038 1! DCL command SHOW ACL. 
39 0039 1! 
40 0040 1 ! ENVIRONMENT: 
41 0041 1! 
42 0042 1! VAX/VMS operating system, user mode utilities. 
43 004 1! 
44 044 1 !e- 
45 045 1! 
46 00466 1! 4 
47 0047 1 ! AUTHOR: L. Mark Pilant CREATION DATE: 17-Jan-1984 
48 0048 1! 
49 0049 1 ! MODIFIED BY: 
50 0050 1! 
51 0051 1! v03-003 LMP0230 L. Mark Pil 16-Apr-1984 10:53 
2¢ ORE : Sock interface changes to S CHANGE WACL Rane service. 
54 0054 1! v03-002 LMP0223 L. Mark Pilant, 66-Apr-1984 12:53 
55 Opes : Use the correct amount of storage for the lock block. 
2$ 0057 1! v03-001 LMP0213 L. Mark Pilant, 24-Mar-1984 12:23 
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! Add support tee locking and unlocking the object" s 

: Also, modify it so that the DCL commands SET ACL Ay Show 

ACL call the same image. 

iee 


LIBRARY *SYSS$LIBRARY:L1B’; 
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! Routines contained within this module. 

FORWARD ROUTINE 
SHOW_ACL; ! Main processing routine 

! Define common error message codes. 


SSHR_MSGDEF (SHOW, 120, LOCAL, 
(READERR, SEVERE) 


! Define necessary macros. 


MACRO SIGNAL (ARG) = 
GIN 


BE 
EXTERNAL ROUTINE LIBSSIGNAL; 
L18$51GNAL (ARG %IF ZLENGTH=1 GTR O THEN, %REMAINING %F1); 


! External routine definitions. 


EXTERNAL ROUTINE , 
CLISGET VALUE, ! Get qualifier value 
CLISPRESENT, ' See if qualifier present 
LIBSPUT_OUTPUT; ! General output routine 
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GLOBAL RCUTINE SHOW_ACL = 
tee 


' 
FUNCTIONAL DESCRIPTION: 


= 


i 
i 
: This routine is the main routine. It parses the command Line to 
4 determine the name and type of the object whose ACL is to be 

: displayed. 

i 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
A OCKID : SBBLOCK CACL$S_RLOCK_ACLJ], ! Lock-id for ACL lock 
T_TYPE, Object’s type code 
T_NAME : SBBLOCK CDSCS$C_S_BLNJ, ! Object name descr 
FAB : $FAB_DECL, B 
: SNAM_DECL, ! Object NAMe block : 
NAME : SBBLOCK CNAMSC_MAXRSS], ! Expanded name string 
€ : SBBLOCK CNAMSC_MAXRSS ' ' Resultant name string 
' Channel for object 

: BLOCKVECTOR C3, ITMSS_ITEM, BYTE), ! SGETDVI item List 
S, ' Output device class 
TH, ! Output device width 
: SBBLOCK Het ! Binary ACE descr 
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BLN) 
ACL$S~READACE) VOLATILE ! Binary ACE storage 
| fext ACE descr 


DSC$C ° ; 
: - BYTE], ' Text ACE storage 
T : BLOCKVECTOR C2, ITMSS_ITEM, BYTE] ! SCHANGE_ACL item List 
T ' $CHANGE_ACL context 
T_DESC : SBBLOCK COSC$C_S BLN), '“Qutput Line descr 
OUTPUT T : VECTOR (512, BYTE], |! Output Line storage 
10 star : VECTOR (4, WORD), ! 1/0 status block 
STATUS; ! Routine return status 


EXTERNAL LITERAL , 
SHOWS _OBJLOCKED; ! object locked error message 


BIND 
OBJ_TYPE_NAMES = UPLIT 


P (‘file’), 

P (‘device’), 

PTOR (‘print/batch queue"), 
PTOR (‘event cluster'), 

P (‘Logical name table’), 
P ("process"), 

. ("global section") 


(Te es ee ee ee 


OR; 


! Initialize all necessary storage. 


Lt 
CHSFILL (0, DSCSC ; 
CHSFILL (0, DSC$C 

(0, DSC$C 


S_BLN, OBJECT NAME) 
S"BLN, ACE_BIR_DESC); 
S"BLN, ACE~TXT~DESC); 
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CHSFILL (0, DSCS$C_S$_BLN, OUTPUT_DESC); 
CHSFILL (0, S*ITMSS"ITEM, GETDVT_ARGS); 
CHSFILL (0; JIMS ITER. ATR_ARGLIST); 
CHSFILL (0, 4e2, IO“STATUS); 
OBJECT NAMECDSCSB_CLASSJ = DSCSK_CLASS_D; 
OBJECT" CHAN = 0; 
ACE _B1N_DESCCDSCSA_POINTER = ACE_STORAGE; 
ACE TXT DESCLDSCSA~POINTER] = ACE TEXT; 
OUTPUT _BESC BSCSA POINTER] = OUTPOT_TEKT; 
OUTPUT TEXTCO) = 0; ! Indicates first time through 


ACL_CONTEXT = 0; 

! Get the type code and name of the desired object. 

OBJECT_TYPE = ACLSC_FILE; ! Set defau 
SPRESENT t 


. lt type 
IF CLI ($DESCRIPTOR ("OBJECT_TYPE.FILE')) cT_T BE = ACLSC_FILE; 
IF CLISPRESENT (SDESCRIPTOR (‘OBJECT-TYPE.DEVICE')) THEN OBJECT_TYPE = ACLSC_DEVICE; 
IF CLISPRESENT (S$DESCRIPTOR (*OBJECT_TYPE.QUEUE')) THEN OBJECT TYPE = ACL$C_JOBCTL QuEUE ; 
IF CLISPRESENT (S$DESCRIPTOR (‘OBJECT_TYPE.EVENT_CLUSTER')) THER OBJECT_TYPE = ACL$C_COMMON _EF_CLUSTER; 
IF CLISPRESENT (SDESCRIPTOR (*OBJECT_TYPE.LOGICAL_NAME TABLE')) THEN OBJECT_TYPE = ACL$C_LOGICAL_NAME_TABLE; 
IF CLISPRESENT (S$DESCRIPTOR ("OBJECT_TYPE.PROCESS*)) TREN OBJECT_TYPE = ACLSC_PROCESS; 
IF CLISPRESENT (SDESCRIPTOR (*OBJECT_TYPE.GLOBAL_SECTION')) THEN OBJECT_TYPE = ACL$C_GLOBAL_SECTION; 
CLISGET_VALUE (SDESCRIPTOR (*INPUT'), OBJECT_NAME); 


! Attempt to obtain a read lock for the object. 


ATR_ARGLISTCO, ITM$W_ITMCOD] = ACLS$C_RLOCK_ACL; 
ATR-ARGLISTCO, ITM$W-BUFSIZ] = ACL$S-RLOCK-ACL; 
ATR-ARGLISTCO, ITMSL_BUFADR) = ACL_LOCKID; 
STATUS = $CHANGE_ACL™ (CHAN = .OBJECT_CHAN 
OBJTYP = OBJECT_TYPE, 
OBJNAM = OBJECT-NAME 
ITMLST = ATR_ARGLISTS; 


If NOT ,STATUS 
THEN 


BEGIN 
IF .STATUS EQL SS$_NOTQUEVED THEN STATUS = SHOWS_OBJLOCKED; 
SIGNAL (.STATUS); 
RETURN .STATUS OR STSSM_INHIB_MSG; 
END; 
! If the object is a file, open it to improve performance. 
IF .OBJECT_TYPE EQL ACLSC_FILE 
THEN 


BEGIN 
$FAB_INIT why OOVECT FAB, 


FNA = ,OBJECT_NAMECDSC$A_POINTER], 
FNS = .OBJECT~NAMELDSC$W7LENGTH], 
FOP = UFO 
NAM = OBJECT_NAM, 
SHR = <GET, PUT, UPI>); 

SNAM_INIT (NAM = OBJECT_NAM, 
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ESA = OBJECT EXP NAME, 
ESS = NA MAXRS 
RSA = OBJECT_RES NAME, 


RSS = NAMSC_MAXRSS); 
STATUS = SOPEN (FAB = OBJECT_FAB); 


! Get the actual name of the file, if possible. 
IF .OBJECT_NAMCNAMSB_RSLJ NEQ 0 
THEN 
BEGIN 
OBJECT_NAMECDSC$W_LENGTH] = .OBJECT_NAMCNAM$B RSL]; 
OBJECT NAME DSCSA-POINTER] = .OBJECT_NAMLNAMSC_RSA); 
-OBJECT_NAMCNAM$B_ESL] NEQ 0 


AMECDSCSW_LENGTH) = ,OBJECT_NAMCNAM$B_ESLI; 
ECDSC$A_POINTER] = .OBJECT_NAMCLNAMSC_ESAJ; 


CFABSB_FNSJ: 
BCFABSC_FNA}; 


“> 


! If any errors occurred, abort now. 
IF NOT .STATUS 
THEN 


BEGIN 
SIGNAL (SHOWS_READERR, 1, OBJECT_NAME, +084 
RETURN ~STATUS OR STS$M_INHIB_MSG; 

OBJECT _CHAN = ,OBJECT_FABLFABSL_STV); 


! Get the width of SYSSOUTPUT, the display device. 


GETDVI_ARGSCO, ITMSW_ITMCOD] = DVI$_DEVCLASS; 
GETDVIARGSCO, ITM$W~BUFSIZ] = 4; 
GETDVI-ARGSCO, ITMS$L“BUFADR) = DEVICE_CLASS; 
GETDVI-ARGSC1, ITM$SW"ITMCOD)] = DVI$_DEVBuFSIZ; 
GETDVITARGSC1, ITM$W~BUFSIZ] = 4; 
GETDVI-ARGSC1, ITMSL-BUFADR] = DISPLAY_WIDTH; 
STATUS = $GETDVI (DEVNAM = SDESCRIPTOR (*SYS$OUTPUT"), 
ITMLST = GETDVI_ARGS, 
10SB = 10 STATUS): 
IF .STATUS THEN STATUS = .10_STATUSCO); 
IF NOT STATUS 
THEN 
BEGIN 
SIGNAL (, STATUS); 
RETURN STATUS OR STS$M_INHIB_MSG; 
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IF .DEVICE_ CLASS NEQ DCS$_TERM THEN DISPLAY_WIDTH = 132; 


Read, format, and display all the ACEs in the object's ACL until the end 


' of the ACL is seen. r until an error occurs. 


WHILE 1 
e IN 
ATR_ARGLISTCO, ITM$W -1T™mCOD] = ACL$C_READACE; 
ATR-ARGLISTCO, ITM$W-BUFSIZ] = ACLSS-READACE: 
ATR-ARGLISTLO, 1 TMSL “BUFADR] = ACE_STORAGE; 
STATUS = SCHANGE_ACL™ (CHAN = .OBJECT_CHAN 
OBJTYP = OBJECT _TYPE, 
OBJNAM = OBJECT "NAME, 
ITMLST = ATR_ARGLIST 
CONTXT = ACL~CONTEXTS; 


IF NOT .STATUS # 
THEN 


EGIN 

IF .STATUS EQL sss ACLERPTY OR STATUS EQL SS$_NOMOREACE THEN EXITLOOP; 
SIGNAL (SHOWS _READERR, OBJECT we Status SJ; 
RETURN SHOWS *READERR bn’ STSSM_ INRIB_M 


! If the ACE is tagged as being hidden, don't display it. 


IF NOT .ACE_STORAGECACES$V_HIDDEN) 
THEN 
BEGIN 


! Type out the banner Line indicating the object type, name, and the current 
i date and time if this is the first ACE. 


IF .OUTPUT_TEXTCO] EQL 0 
THEN 


-DESCCDSC$W_ LENGTH) = 512; 


T 
STATUS = SFAO ( (SDES SCRIPTOR (Object type: !AS, Object mame: '!AS, on !2D!/"), 


OUTPUT _DESC, 

OUTPUTDESC, 

.OBJ TPE alAnesc. OBJECT_TYPE], 
OBJE ECT. 


| ete ani ADUTPUT_DESC): 


! Format and display the ACE. 


ACE_BIN_DESCCDSC$W_LENGTH] = .ACE_STORAGECACES$B_SIZE); 
ACE Pret SDESC DSC$W LENGTH] = 512; 
STATUS = SFORMAT_ATL (ACLENT = ACE_BIN_DESC 

ACLLEN = ACE~TXT~DESCEDSCS$W_LENGTHI, 
ACLSTR = ACE~TXT "DESC, 
WIDTH = DISPCAY_QIDTH 
TRMDSC = SDESCRTPTOR (XZCHAR (13), ZCHAR (10)), 
INDENT = ZREF (10)); 


If NOT .STATUS 
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4 THEN 

5 BEGIN 

2 SIGNAL (. STATUS 

; RETURN “STATUS sh STSSM_INHIB_MSG; 

4 LIBSPUT. OUTPUT (ACE_TXT_DESC); 

END: <, 


! Check for an empty ACL. 


IF STATUS EQL SS$_ACLEMPTY 
THEN RETURN _ -ACCEMPTY 
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ELSE RETURN 1 


L1:0262 
; Referenced LOCAL symbol DEVICE CLASS is probably not initialized 


65 6C, 69, 66 
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End of routine SHOW_ACL 
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“LONG 13 
-ADDRESS P.AAI 
ASCII \logical name table\ 
-BLKB 2 
18 


LONG 
“ADDRESS P.AAK 
ASCII \process\ 


-TITLE 
IDENT 
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soretat section\ 


"LONG 14 
-ADDRESS P.AAO 
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ASCII] \OBJECT_TYPE.FILE\ 


LONG 16 
ADDRESS 
ASCI 
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-LONG 18 
«ADDRESS P.A 
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I \OBJECT_TYPE.DEVICE\ 


TASCII \OBJECT_TYPE .QUEUE\ 
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- LONG 
«ADDRESS P.A 
*ASCII = \0B 
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ASCII] \OBJECT_TYPE.GLOBAL_SECTION\ 
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sEXTRN LIB$PUT OUTPUT, SHOW$S_OBJLOCKED 
eEXTRN SYSSCHANGE AC LIBS$STGNAL 
.EXTRN SYSSOPEN, SYSSGETDVI 

-EXTRN SYSSFAO, SYSSFORMAT_ACL 


-PSECT S$CODES$,NOWRT,2 


OFFC 00000 ENTRY SHOW_ACL, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,-; 0091 
58 000000006 00 9€ 00002 MOVAB SYSS$CHANGE_ACL, R11 : 
3A 000090006 ; H 9009 MOVAB LIBSSIGNAL; R16 : 
4 00000900 60 of §015 MOVAB (CLISPRESENT, R8 : 
SE F704 CE 9E 901 MOV -2092(SP), §P : 
08 00 6E 1 00 2¢ 99021 MOVCS #0, (SP),°#0, #8, OBJECT_NAME + 0145 
08 00 6E ee 00 2c 00088 MOVCS #0, (SP), #0, #8, ACE_BIN_DESC + 0146 
08 00 6E 00 2c 00030 MOVCS #0, (SP), #0, #8, ACE_TXT_DESC + 0147 
FC14 CD 00035 : 
08 00 6E 00 2¢ 00038 MOVCS #0, (SP), #0, #8, OUTPUT_DESC + 0148 
0220 CE 0003 : 
24 00 6E 00 2¢ 00040 MOVCS #0, (SP), #0, #36, GETDVI_ARGS + 0149 
FD24 «CD 00045 : 
18 00 6E 00 2¢ 00048 MOVCS #0, (SP), #0, #24, ATR_ARGLIST + 0150 
0228 CE 0004D : 
08 00 6E 00 2c 00050 MOVCS #0, (SP), #0, #8, IO_STATUS + 0151 
18 AE 00055 : 
FB OAD 0¢ 90 00057 MOVB , OBJECT_NAME+3 : 0153 
57 D4 00058 CLRL OBJECT CHAR : 0154 
FD20 cD FC1C }§=6CD.sCO9E.-:00050 MOVAB ACE_STORAGE, ACE_BIN_DESC+4 : 0155 
FC18 = CD 0240 CE 9E 00064 MOVAB ACE-TEXT, ACE TXT DESC+4 : 0156 
0224 CE 20 AE 9E 00068 MOVAB OUTPUT_TEXT, OUTPOT_DESC+4 : 0157 
20 AE 94 00071 CLRB = OUTPUT“ TEXT : 0158 
OC AE D4 00074 CLRL = ACL_CONTEXT + 0160 
10 AE 01 D0 00077 MOVL #1, ~OBJECT_TYPE + 0164 
59 DD 00078 PUSHL R9 > 0165 
8 01 FB 09070 CALLS #1, CLISPRESENT F 
4 50 €9 00080 BLBC —E_—«aRO, ; 
10 AE 01 DO 00083 MOVL #1, OBJECT_TYPE : 
1¢ =A9 OF 00087 18: PUSHAB P.AA : 0166 
ra or FB 008A CALLS #1, CLISPRESENT ; 
04 0 £9 0008D BLBC : : 
10 AE 0 BO 0090 MOVL #2, OBJECT_TYPE ; 
38 «6 AD «(OOF 00094 28: PUSHAB P.AAT : 0167 
ra: gi FB 90097 CALLS #1, CLISPRESENT : 
04 Q E9 O009A BLBC : F 
10 AE 03 DO 0009D MOVL #3, OBJECT_TYPE : 
5¢ 69 OF OOOAl 3S: PUSHAB P.AAV + 0168 
ra gi FB OOA4 CALLS #1, CLISPRESENT ; 
04 0 £9 000A7 BLBC , ; 
10 AE 04 DO OOOAA MOVL #4. OBJECT_TYPE : 
0084 C9 OF OOOAE 4$: PUSHAB P.AA : 0169 
7 1 FB 008 CALLS #1, CLISPRESENT ; 
04 0 €9 0008 BLBC —_—s«aRO. ; 
10 AE 05 dO 0088 MOVL #5. OBJECT_TYPE : 
OOAO C9 OF OOOBC S$: PUSHAB P.AAZ : 0170 


iw 


a 
ACL 16-Sep-1984 00:07:24 AX-11 Bliss-32 V4.0-742 Page 11 
a aets 1 99:93:88 LACLEDT $Re SHOWACL .B32;1 9 (3) 
+ 1 FB 000C CALLS #1, CLISPRESENT ; 
4 5 £8 ita: BLAC RO, ; 
10 AE $ bO 90¢6 MOVL #6, OBJECT_TYPE : 
004 F OCA 6$: PUSHAB P. + 0171 
68 1 FB cE CALLS #1, CLISPRESENT : 
04 : E9 0000 BLBC . ; 
10 AE 0 go 004 MOVL #7, OBJECT _TYPE 3 
F8 AD OF 00008 7$ PUSHAB OBJECT_NAME 3 0173 
0004 C9 9F 000DB PUSHAB P.ABD : 
000000006 00 2 FB OODF CALLS #2 CLISGET VALUE ; 
Oe8 CE OO0A0004 BF 00E6 MOVL #655364, ATR_ARGLIST : 0178 
O2ec CCE 04 AE 9E OOE MOVAB ACL_LOCKID, ATR_ARGLIST+4 + 0179 
7E 7C O00FS CLRQ. = ( SP) > 0183 
7E D4 000F7 CLRL = (SP) : 
0234 CE 9F 000F9 PUSHAB ATR _ARGLIST : 
F8 AD OF OO0FD PUSHAB OBJECT_NAM ; 
24 Ag 9F 00100 PUSHAB OBJECT"TYPE : 
5? DD 00103 PUSHL OBJECT CHAN ; 
68 97 FB 00105 CALLS #7, SYSSCHANGE_ACL : 
36 0 dO 00108 MOVL RO. STATUS : 
1 56 €8 00108 BLBS STATUS, 9$ + 0184 
00000988 ~=s BF 56 (D1 00108 CMPL STATUS. #2488 + 0187 
07 12 0011 BNEQ $ : 
56 000000006 8F DO 00117 MOVL §§ #SHOWS_OBJLOCKED, STATUS : 
O1DF 31 OO11E 8$: BRW 3 : 0188 
01 10 AE D1 00121 98: CMPL § OBJECT_TYPE, #1 > 0194 
03 13 00128 BEQL 0$ : 
0083 31 00127 BRW 15$ : 
0050 «BF 00 6E : 00 2c O012A 10$:  MOVCS #0, (SP), #0, #80, SRMS_PTR + 0203 
AB AD 5008 BF BO 00133 MOVW #20483, S$RMS_PTR : 
AC AD 00020000 8F DO 00139 MOVL 131072, $RMS_PTR+4 : 
BE AD 4302 8F BO 00141 MOVW #17154, SRMS_PTR+22 F 
C? AD 02 90 00147 MOVB #2, $RMS_PTRT31 : 
DO AD FF48 4«86CD OE 00148 MOVAB OBJECT_NAM, $RMS_PTR+40 : 
4 AD FC AD DO 00151 MOVL  OBJECT“NAME+4, SRMS_PTR+44 : 
DC AD FB AD 90 00196 MOVE  OBJECT“NAME, $RMS_PTR+52 ; 
0060 8F 00 6E ‘ae 00 2c 00158 MOVCS #0, (SP), #6, #967 S$RMS_PTR : 0208 
FF48 = CD 6002 8F BO 00165 MOVW #24578, $RMS_PTR : 
FFGA CD 01 8E Boi ee MNEGB #1, SRMS_PTR? : 
FF4C §8=6CD FD48 8=6CD «OSE 3 1 MOVAB OBJECT _RES_NAME, SRMS_PTR+4 : 
FFS2 CD 01 8 00178 MNEGB #1, S$RAS PTR+10 : 
FF54 CD FE48 CD 9E 90170 MOVAB OBJECT_ERP_NAME, $SRMS_PTR+12 : 
AB AD 9F 00184 PUSHAB OBJECT7FAB > 0209 
000000006 00 Qi FB 00187 CALLS #1, SYSSOPEN : 
56 0 00 0018E MOVL RO. STATUS : 
50 FF4B CD 9A 00191 MOVZBL OBJECT_NAM+3, RO > 0213 
O¢ 13 0196 BEQL =s:'118 : 
F8 AD 6 BO 0019 MOVW RO, OBJECT_NAME : 0216 
FC AD FF4C =6©CD «DO 0019¢ MOVL OBJECT _NAMF4, OBJEC T_NAME +4 : 0217 
1D 11 OO1A2 BRB 13$ > 0213 
50 FFS3. CD OA OIA, 11$:  MOVZBL OBJECT_NAM+11, RO > 0219 
O¢ 13 1A9 BEQL  =—'12$ : 
FB AD 6 BO 001AB MOVW RO, OBJECT_NAME : 0228 
FC AD FF54 CD DO OO1AF MOVL OBJECT NAMTI2, OBJECT_NAME +4 : 022 
OA 11 001B5 BRB 13$ + 0219 


4 
SHOWSACL bese -1984 00:07:24 AX-11 Bliss-32 V4.0-742 Pa 2 
v04-000 1a-sep-19 4 90:95:86 PACLEDT SRe SHOWACL .832;1 a RY 
FB AD DC AD 98 00187 12$:  MOVZBW OBJECT_FAB+52, OBJECT_NAME : 0227 
FC OA D6 AD OD O18¢ MOVL OBJECT“FAB+44, OBJECT-NAME +4 : 8 
1 56 5 O1C1 13$: BLBS STATUS? 14$ : 3 
7E 80 AD 70 001C4 MOVO OBJECT. FAB+8, =(SP) : ? 
FB =AD «OF 0018 PUSHAB OBJECT-NAME : 
1 0D 001CB PUSHL #1 : 
00781084 8F DD dic PUSHL #7868596 : 
6A 5 F 010 CALLS #5, LIBSSIGNAL : 
012¢ 3 0108 BRW 24§ : 0238 
57 B4 AD d9 9910 148:  MOVL OBJECT FAB+12, OBJECT_CHAN + 0240 
FD24 CD 00040004 8F 3 0100 15$: MOVL #262148, GETDVI_ARGS 3 oss 
FD 8 CD 8 AE F O1E6 MOV Device ELASS, GETDVI_ARGS*4 : 024 
FD CD 00080004 BF D TEC MOVL #524292, GETOVI_ARGST12 t 0249 
FD34 «CD 14 AE 99E OO1F MOV DISPLAY_WIDTH, GETDVI_ARGS+16 : 0250 
7E 7C 001FB CLRQ 2s = (SP) + 0254 
7E 04 OO1FD CLRL = = (SP) : 
34 AE 9F OOTFF PUSHAB 10 STATUS ; 
FD24 «CDOS 90202 PUSHAB GETDVI_ARGS : 
00E8 C9 9F 00206 PUSHAB P.ABF : 
E 7C 0020A CLRQ 0 = (SP) : 
000000006 00 08 FB 00 o¢ CALLS #8, SYSS$GETDVI ; 
56 50 D0 0021 MOVL RO. STATUS : 
04 56 £9 00216 BLBC STATUS, 16$ : 0255 
56 18 AE 3C 00219 MOVZ2WL 10 STATUS, STATUS ; 
56 8 0021D 16$:  BLBS STATUS, 17S : 0256 
00DD 31 00220 BRw 23$ F 
00000042 =F 08 AE D1 00223 178: CMPL  DEVICE_CLASS, #66 + 0262 
05 13 00228 BEQL «-'18$ ; 
16 AE 84 BF OA 902¢0 MOVZBL #132, DISPLAY_WIDTH : 
0228 CE OOO900FF 8F DO 00232 18%: OvL #590679, ATR_ARG + 0271 
022ec CE FCIC §=6CD «(9E 00238 MOVAB  ACE_STORAGE, ATR_ARGLIST+4 ; 0272 
OC AE 9F 00242 PUSHAB ACL~CONTEX : 0277 
7E 7C 00245 CLRQ ss = (SP) : 
0234 CE 9F 00247 PUSHAB ATR_ARGLIST ; 
F8 AD OF 0024B PUSHAB OBJECT_NAME ; 
24 AE OF O024E PUSHAB OBJECT~TYPE : 
57 DD 00251 PUSHL OBJECT~CHAN : 
6B 07 FB 00253 CALLS #7, SYSSCHANGE_ACL 3 
56 50 DO 00256 MOVL RO. STATUS ; 
D 56 «EB 00399 BLBS STATUS, 21$ : 0278 
00000900 = BF 56 D1 0025¢ CMPL STATUS. #2512 + 0281 
07 13 00263 BEQL ; 
000009E0 &F 56 D1 00265 CMPL STATUS, #2528 ; 
03 iF 026C 19$: BNE 0$ : 
00AB 3 6 6E BRW 6$ : 
56 DD 00271 208:  PUSHL STATUS : 0282 
F8 AD 9F 00273 PUSHAB OBJECT_NAME ; 
01 DD 00276 PUSHL ; 
00781084 8F DD 00278 PUSHL #7868596 : 
6A 04 4 | O27E CALLS #4 b1Bs$ GNAL 3 
50 10781084 8F BO 0 8 MOVL #276304052, RO : 0283 
A3 FCIF =D 02 E0 0289 21%: BBS #2, ACE_STORAGE+3, 18% : 0288 
20 AE ; 0 a st ” ean : 0295 
0220 CE 0200 rf ag § 94 MOVW #512, OUTPUT_DESC : 0298 
E D4 00298 CLRL = = (SPS > 0304 


> 


; Routine Size: 


337 
338 
339 


SPLITS 
SCODES 


000000006 


000000006 
FDIC 


000000006 


50 


000000006 
00000900 


815 bytes, 


FC14 
04 


Routine Base: 


Bytes 


50 


50 


10000000 
FC14 


09D0 


POVNDWOMOOMMNOONMOOL PY 
OM SMHS — MOF OMMmomne 


ora 
m 


NOGA OF BR OCONTTSO 


_ 
nm 
COW OOM WOWWMOOO 


o 
_ 


PSECT SUMMARY 


504 NOVEC,NOWRT, 
815 NOVEC,NOWRT, 


$CODES + 0000 


H 
16- 
14- 
9F 00290 
BD O0SAG 
f § A8 
9F 00 at 
9F 0028 
4 0284 
3 8 BB 
re Biee 
§ ; 228: 
Be 009b9 
0 00209 
F 00200 
9F 002E0 
9F 002E4 
oF 3 E7 
9F OO2EB 
9F OOZEF 
FB 002F3 
DO OO2FA 
E8 002FD 
11) 9) 3 00 238: 
FB Oa0e 
C9 00305 24$: 
04 00300 
oF i 25$: 
FB itt 
31 00319 
D1 poate 26$: 
12 O05 
3C 00325 
04 0032A 
DO 00328 27$: 
04 0032E 
Attributes 
RD ,NOEXE,NOSHR, 
RD , EXE,NOSHR, 


sep-1984 00:07:36 


AX-11 Bliss-32 V4.0-742 
ACLEDT. SRC JSHOWACL 832; 1 


SeyEcroT TW TYPE, RP 
OBJ ig NAMESCROJ 
OUTPUT C 
QUTPUT. “Dest 


P. 
#6, SYSSFAO 
RO STAT US 
gute PUT 
Ul asp 
a STORAGE = OACE VBIN. DESC 
#512, ACE_TXT_DESC 


#10, 4(SP) 
4(SP) 


ACE-BIN-DESC 
a7, “Hewat WACL 
RO. TUS 
STATUS, Bes 

Hi IBSSIGNA STATUS, RO 


ace ™ sc 
-[Tespur OUTPUT 


8 

STATUS, #2512 
#2512, RO 

#1, RO 


Be Se Se Be Se Se Se Se Se Ss Se Be Se Se Se Be Be Se Se Se Se Se Se Se Se Se Ge Fe Se Fe Se Se Se Se Se Se 


0318 
0321 


0322 
0324 
0380 
0332 


0334 


tA 


4 
SHOWBAKL 1b-seo-1986 00:07:36  YARAI1 BLseg-52 v4.0-742, 


Library Statistics 


; copcccss S$yabel§ cocccese Pages Processing 
: File Total ioaded Percent Mapped Time 
; .$255$DUA28: (SYSLIBILIB.L32;1 18619 103 0 1000 00:01.9 


3; Warnings: 0 
; Errors: 0 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1IS$:SHOWACL/OBJ=OBJ$:SHOWACL MSRC$:SHOWACL/UPDATE=(ENH$: SHOWACL) 
; Size: 815 code + 504 data bytes 
Run Time: 0: 


Elapsed Time: OP: 32. Y 
Lines/CPU Min: 
powenee/CPyu=titas 26808 
ry Used: 257 pages 
oo ation Complete 


Information: 1 


DIGITAL EQUIPMENT 
CONFIDENTIAL AND P 


-SE 


AH-BT13A 
VAX/VMS V4.0 


0005 


